﻿Imports Mysoft.Map.Data
Imports Mysoft.Map.Application.Security

Partial Public Class Yqywcb
    Inherits Mysoft.Map.Application.Security.AppPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '一级模块权限校验
        VerifyApplication.VerifyLicenseFunction("01010212")

        '判断权限
        If Mysoft.Map.Application.Security.User.CheckUserRight(Session("UserGUID"), "01010212", "00") = False Then
            Throw New Exception("无功能权限")
        End If

        '写日志
        Logger.WriteLog("01010212")
        txtviewtype.Text = "spnWqy"

        If Not Request.QueryString("viewtype") Is Nothing Then
            Select Case Request.QueryString("viewtype").ToString
                Case "Wqy"
                    txtviewtype.Text = "spnWqy"
                    'Exit Select
                Case "Wrg"
                    txtviewtype.Text = "spnWrg"
                    'Exit Select
                Case "Jdj"
                    txtviewtype.Text = "spnJdj"
                    'Exit Select
                Case "Jfk"
                    txtviewtype.Text = "spnJfk"
                    'Exit Select
                Case "Wxd"
                    txtviewtype.Text = "spnWxd"
                    'Exit Select
                Case "Waj"
                    txtviewtype.Text = "spnWaj"
                    'Exit Select
                Case Else
                    txtviewtype.Text = "spnWqy"

            End Select
        End If


    End Sub

End Class